home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
018a
/
apmac10.zip
/
FIXFONTS.SMM
< prev
next >
Wrap
INI File
|
1991-12-30
|
8KB
|
835 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
PostScript Printer
[lang]
1
[desc]
686427177
1
686418214
142
1
0
0
0
0
0
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[tag]
Body Text
2
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Body Single
3
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Bullet
4
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*0>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Bullet
0
0
[tag]
Bullet 1
5
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
288
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*5>
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Bullet 1
0
0
[tag]
Number List
6
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
360
360
360
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>.
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Number List
0
0
[tag]
Subhead
7
[fnt]
TimesNewRomanPS
240
0
49155
[algn]
1
1
0
0
0
[spc]
33
273
1
72
72
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
2
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Subhead
0
0
[tag]
Title
8
[fnt]
Arial MT
360
0
16385
[algn]
4
1
0
0
0
[spc]
33
446
1
144
72
1
100
[brk]
16
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Title
0
0
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
0
1
0
1
0
2
1
1440
10800
12
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
[hrght]
[lyfrm]
1
11200
0
0
12240
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
12240
1
1440
72
1
792
1440
0
1
0
1
1
0
1
1440
10800
1
3
9360
[txt]
>
[frght]
[lyfrm]
1
13248
0
14400
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
792
1
14472
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[edoc]
<:#279,9360>FUNCTION FIXFONTS()
<:#279,9360>DEFSTR id, Line;
ONERROR toast
ONCANCEL toast
IF Decide("This macro fixes ATM and PostScript message. This may take some time. Continue?")
J = 0
HourGlass(1)
WinDir = GetWindowsDirectory$()
b = Left$("<[><[>", 1)
Printer = strfield$(GetProfileString$("windows", "device", "WIN.INI") 1, ",")
IF UCASE$(Left$(Printer, 10)) != "POSTSCRIPT"
Message("You must make your PostScript printer your default printer.")
GoTo toast
ENDIF
port = strfield$(strfield$(GetProfileString$("windows", "device", "WIN.INI"), 3, ","), 1, ":")
NumSoftFonts = GetProfileString$("PostScript,{port}", "softfonts", "WIN.INI")
Assign(&id, fopen("{WinDir}ATM.INI", "r"))
IF id <;> 0
WHILE "FONTS" != UCASE$(MID$(Assign(&Line, fgets$(id)), 2, 5))
WEND
WHILE b != Left$(Assign(&Line, fgets$(id)), 1) AND Line != ""
J = J + 1
Exists = FALSE
NF1 = strfield$(strfield$(Line, 2, "="), 1, ",")
NF2 = strfield$(strfield$(Line, 2, "="), 2, ",")
FOR I = 1 to NumSoftFonts
StatusBarMsg("Processing Font {J}, Checking existing font {I}...")
ExistingFont = GetProfileString$("PostScript,{port}", "softfont{I}")
EF1 = strfield$(ExistingFont, 1, ",")
EF2 = strfield$(ExistingFont, 2, ",")
IF NF1 = EF1
Exists = TRUE
IF NF2 != EF2
WriteProfileString("PostScript,{port}", "softfont{I}", strcat$(ExistingFont, ",", NF2))
StatusBarMsg("*********** Modified Font {I} *************")
ENDIF
ENDIF
NEXT
IF not Exists
NumSoftFonts = NumSoftFonts + 1
NewFont = strcat$(NF1, ",", NF2)
WriteProfileString("PostScript,{port}", "softfont{NumSoftFonts}", NewFont)
WriteProfileString("PostScript,{port}", "softfonts", NumSoftFonts, "WIN.INI")
StatusBarMsg("Creating new font number {NumSoftFonts}...")
ENDIF
WEND
StatusBarMsg("")
fclose(id)
ENDIF
ENDIF
Message("Process complete. You MUST restart Windows for your changes to take effect.")
toast:
StatusBarMsg("")
<:#279,9360>HourGlass(0)
<:#279,9360>END FUNCTION
>
[Embedded]
00005809
>
[macsum] 1
FIXFONTS 0 0 17 0
[macse]
14 FIXFONTS
20 00001765
19 00001765
0 2 "This macro fixes ATM and PostScript message. This may take some time. Continue?"
13
11 00001681
5 0
8 3
0 296 1
0 1288
13
8 4
0 806 "[[" 1
13
8 5
0 286 "windows" "device" "WIN.INI"
13
0 20 [X] 1 ","
13
8 6
0 806 "{6}" 10
13
0 18 [X]
13
7 "POSTSCRIPT"
18 1
11 00000418
0 3 "You must make your PostScript printer your default printer."
10 00001765
0 286 "windows" "device" "WIN.INI"
13
0 20 [X] 3 ","
13
0 20 [X] 1 ":"
13
8 7
0 286 "PostScript,{7}" "softfonts" "WIN.INI"
13
8 8
0 259 "{4}ATM.INI" "r"
13
0 805 &1 [X]
6 1
5 0
18 3
11 00001681
7 "FONTS"
0 257 "{1}"
13
0 805 &2 [X]
13
0 15 [X] 2 5
13
0 18 [X]
13
18 1
11 00000739
10 00000629
6 5
0 257 "{1}"
13
0 805 &2 [X]
13
0 806 [X] 1
13
18 1
6 2
7 ""
18 1
1 1
11 00001658
6 3
5 1
3 0
8 3
5 0
8 9
0 20 "{2}" 2 "="
13
0 20 [X] 1 ","
13
8 10
0 20 "{2}" 2 "="
13
0 20 [X] 2 ","
13
8 11
5 1
8 12
6 8
6 12
18 2
12 00001052
10 00001430
5 1
6 12
3 0
8 12
10 00000974
0 789 "Processing Font {3}, Checking existing font {12}..."
0 286 "PostScript,{7}" "softfont{12}"
13
8 13
0 20 "{13}" 1 ","
13
8 14
0 20 "{13}" 2 ","
13
8 15
6 10
6 14
18 0
11 00001417
5 1
8 9
6 11
6 15
18 1
11 00001417
0 16 "{13}" "," "{11}"
13
0 287 "PostScript,{7}" "softfont{12}" [X]
0 789 "*********** Modified Font {12} *************"
10 00001017
6 9
1 3
11 00001645
6 8
5 1
3 0
8 8
0 16 "{10}" "," "{11}"
13
8 16
0 287 "PostScript,{7}" "softfont{8}" "{16}"
0 287 "PostScript,{7}" "softfonts" "{8}" "WIN.INI"
0 789 "Creating new font number {8}..."
10 00000739
0 789 ""
0 260 "{1}"
0 3 "Process complete. You MUST restart Windows for your changes to take effect."
0 789 ""
0 296 0
6 0
15
9
00005834
